home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BBS_UTL / DDPLUS71 / RIPLINK.ZIP / RIPLINKM.PAS < prev    next >
Pascal/Delphi Source File  |  1994-02-18  |  743b  |  41 lines
  1. Unit RipLinkMoreDrivers;
  2.  
  3. {.OBJ declarations}
  4.  
  5. Interface
  6.  
  7. const
  8.   RLMDCopyright = '  RipLinkDriversII(tm) - Copyright (C) 1994 by InterProgramming, All Rights Reserved.  ';
  9.   RLMDCopyright2= '  Portions Copyright 1994 by InterProgramming  ';
  10.  
  11. {$IFNDEF TP6}
  12. Procedure BoldFont;
  13. {$ENDIF}
  14. Procedure EuroFont;
  15. Procedure LComFont;
  16.  
  17. Implementation
  18.  
  19. {$IFNDEF TP6}
  20. Procedure BoldFont; external;           {Bold (outline)}
  21. {$L BOLD.OBJ}
  22. {$ENDIF}
  23.  
  24. Procedure EuroFont; external;           {Euro}
  25. {$L EURO.OBJ}
  26.  
  27. Procedure LComFont; external;           {LCom}
  28. {$L LCOM.OBJ}
  29.  
  30. Procedure DoNuncaII;
  31. var
  32.   davar, davar2 : string;
  33. begin
  34.   davar := RLMDCopyright;
  35.   davar2 := RLMDCopyright2;
  36. end;
  37.  
  38. begin
  39.   DoNuncaII;
  40. End.
  41.